00050	(SETQ BASE (SETQ IBASE 10.))
00100	(DE P (N K) (COND ((LESSP N 0) 0) ((EQUAL K 1) 1) ((ZEROP N) 1)
00150	((LESSP N K) (P N N))
00200	((NOT (ZEROP (A N K))) (A N K)) (T (STORE (A N K) (PLUS (P  N (SUB1 K))
00300	(P (DIFFERENCE N K) K) ((LAMBDA (X) 0) (SETQ COUNT (ADD1 COUNT))))))))
00400	
00410	(SETQ SAVEBPORG BPORG)
00420	
00500	(DE INITARRAY() (PROG2 (SETQ BPORG SAVEBPORG) (ARRAY A 36. @(1 . 52) @(1 . 52))))
00600	
00700	(INITARRAY)
00800	(SETQ COUNT 0)